home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 38 / 038.d81 / 1541 stamper (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  73 lines
  1. 5 gosub60100:clr
  2. 6 goto1000
  3. 10 rem ***********************
  4. 20 rem      read block
  5. 30 rem ***********************
  6. 70 open15,8,15:open2,8,2,"#":print#15,"u1";2;0;18;0:print#15,"b-p";2;177
  7. 80 tt$="":fori=177to255:get#2,a$
  8. 90 if(asc(a$+chr$(.))and127)<32thena$=chr$(32)
  9. 100 tt$=tt$+a$:next:ifa=17thenclose2:close15:return
  10. 110 rem ***********************
  11. 120 rem      edit block
  12. 130 rem ***********************
  13. 140 print""tt$
  14. 142 print"   press return when finished editing[145][145][145][145]"
  15. 145 printchr$(146)chr$(145);:poke198,0:poke211,0
  16. 150 s=peek(211)+peek(209)+peek(210)*256:pokes+54272,peek(646):f=128
  17. 160 pokes,peek(s)+f:f=-f:d=1
  18. 170 geta$:ifa$<>""then200
  19. 180 d=d+1:ifd=60then160
  20. 190 goto170
  21. 200 pokes,peek(s)and127:if(asc(a$)and127)<32then230
  22. 210 printa$;:ifpos(0)>78thenprintchr$(157);
  23. 220 goto150
  24. 230 ifa$=chr$(29)thenifpos(0)<>78then210
  25. 240 ifa$=chr$(157)thenifpos(0)<>0then210
  26. 250 ifa$=chr$(17)thenifpos(0)<39then210
  27. 260 ifa$=chr$(145)thenifpos(0)>39then210
  28. 270 ifa$<>chr$(13)then150
  29. 280 rem *********************
  30. 290 rem    rewrite block
  31. 300 rem *********************
  32. 310 open6,3,6
  33. 320 print#15,"b-p";2;177:poke211,0
  34. 330 fori=0to78:get#6,a$:print#2,a$;:next
  35. 340 print#15,"u2";2;0;18;0:close6:close2:close15
  36. 1000 print"[147]              disk stamper"
  37. 1010 print"           by r. harold droid"
  38. 1020 print"         r - read a stamp"
  39. 1030 print"         e - edit a stamp"
  40. 1040 print"         q - quit"
  41. 1050 print"         press r, e, or q."
  42. 1060 a=peek(203):ifa<>17anda<>14anda<>62then1060
  43. 1070 ifa=17then2000
  44. 1080 ifa=14then70
  45. 1090 gosub60000:goto1050
  46. 2000 print:print:gosub70:print""tt$
  47. 2010 print"         press space for menu"
  48. 2020 ifpeek(203)<>60then2020
  49. 2030 goto1000
  50. 60000 print"[145]  are you sure you want to quit? (y/n)"
  51. 60010 a=peek(203):ifa<>25anda<>39then60010
  52. 60020 ifa=39thenprint"[145]                                      [145]":return
  53. 60030 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  54. 60040 ifer<>63thenend
  55. 60050 load"hello connect",8
  56. 60100 poke53280,1:poke53281,1
  57. 60110 printchr$(142)"[147][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
  58. 60120 fora=1to23:print"[221]"spc(38)"[221]";:next
  59. 60130 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][157][148][192]"
  60. 60140 fora=217to242:pokea,peek(a)or128:next
  61. 60150 print"          loadstar presents:"
  62. 60160 print"                               "
  63. 60170 print"             disk  stamper     [155] "
  64. 60180 print"                               [155] "
  65. 60190 print"          by r. harold droid   [155] "
  66. 60200 print"                               [155] "
  67. 60210 print"            copyright  1987    [155] "
  68. 60220 print"                               [155] "
  69. 60230 print"                                "
  70. 60240 print"        press space to continue"
  71. 60250 ifpeek(203)<>60then60250
  72. 60260 return
  73.